home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_006 / microemacs / port-handler.asm < prev    next >
Assembly Source File  |  1992-05-06  |  16KB  |  532 lines
  1. StartModule     DC.L    (EndModule-StartModule)/4
  2. EntryPoint      EQU     *
  3. #
  4. # // "Include files containing useful constants"
  5. #
  6. # GET "LIBHDR"
  7. # GET "IOHDR"
  8. # GET "MANHDR"
  9. # GET "EXECHDR"
  10. #
  11. # // This is a handler for the port tasks
  12. #
  13. # // When the task is creates, the parameter packet contains
  14. # // parm.pkt!pkt.arg1 = BPTR to BCPL string of device name, i.e.  ("SKEL:")
  15. # // parm.pkt!pkt.arg2 = extra info (if needed)
  16. # // parm.pkt!pkt.arg3 = BPTR to device info node
  17. #
  18. # MANIFEST
  19. # $(
  20. #    IO.blocksize = 30 // size of devices IO block
  21. # $)
  22. #
  23. # LET start(parm.pkt) BE
  24. # $(
  25. 310044:         MOVE.L  D1,D2 
  26. # LET extrainfo = parm.pkt!pkt.arg2
  27. 310046:         LSL.L   #2,D2 
  28. 310048:         MOVE.L  18(A0,D2.L),4(A1) 
  29. # LET read.pkt = 0
  30. 31004E:         CLR.L   8(A1) 
  31. # LET write.pkt = 0
  32. 310052:         CLR.L   C(A1) 
  33. #
  34. # LET openstring = parm.pkt!pkt.arg1
  35. 310056:         MOVE.L 14(A0,D2.L),10(A1) 
  36. #
  37. # LET inpkt  = VEC pkt.res1
  38. 31005C:         MOVE.L #18,D3 
  39. 31005E:         ADD.L A1,D3 
  40. 310060:         LSR.L #2,D3 
  41. 310062:         MOVE.L D3,14(A1)
  42. # LET outpkt  = VEC pkt.res1
  43. 310066:         MOVE.L #2C,D4 
  44. 310068:         ADD.L A1,D4 
  45. 31006A:         LSR.L #2,D4 
  46. 31006C:         MOVE.L D4,28(A1) 
  47. # LET IOB     = VEC IO.blocksize
  48. 310070:         MOVE.L #40,D5 
  49. 310072:         ADD.L A1,D5 
  50. 310074:         LSR.L #2,D5 
  51. 310076:         MOVE.L D5,3C(A1) 
  52. # LET IOIBO    = VEC IO.blocksize
  53. 31007A:         MOVE.L #C0,D6 
  54. 310080:         ADD.L A1,D6 
  55. 310082:         LSR.L #2,D6 
  56. 310084:         MOVE.L D6,BC(A1) 
  57.  
  58. # LET error = FALSE
  59. 310088:         CLR.L 13C(A1) 
  60. #
  61. # TEST extrainfo = 0 THEN    // is it a open on SER:
  62. 31008C:         TST.L 4(A1) 
  63. 310090:         BNE 3100A0 
  64. #     LET devname = "serial.device*X00"
  65. 310094:         LEA 464(A4),A3 
  66. 310098:         MOVE.L A3,D1 
  67. 31009A:         LSR.L #2,D1 
  68. # ELSE
  69. 31009C:         BRA 3100BE 
  70. #     TEST extrainfo = 1 THEN   // is it an open on PAR:
  71. 3100A0:         MOVE.L #1,D1 
  72. 3100A2:         CMP.L 4(A1),D1 
  73. 3100A6:         BNE 3100B6
  74. #        LET devname = "parallel.device*X00"
  75. 3100AA:         LEA 474(A4),A3 
  76. 3100AE:         MOVE.L A3,D1 
  77. 3100B0:         LSR.L #2,D1
  78. #     ELSE 
  79. 3100B2:         BRA 3100BE 
  80. #        LET devname = "printer.device*X00"
  81. 3100B6:         LEA 488(A4),A3 
  82. 3100BA:         MOVE.L A3,D1 
  83. 3100BC:         LSR.L #2,D1
  84. # 
  85. 3100BE:         MOVE.L D1,140(A1) 
  86. #
  87. # LET ?? = TRUE
  88. 3100C2:         MOVE.L #FFFFFFFF,D2 
  89. 3100C4:         MOVE.L D2,144(A1) 
  90. #
  91. # 
  92. 3100C8:         LEA 498(A4),A3 
  93. 3100CC:         MOVE.L A3,D3 
  94. 3100CE:         LSR.L #2,D3 
  95. 3100D0:         MOVE.L D3,148(A1) 
  96. #
  97. # LET ?? = 0
  98. 3100D4:         CLR.L 14C(A1) 
  99. #
  100. # LET ?? = 0
  101. 3100D8:         CLR.L 150(A1) 
  102. #
  103. # LET ?? = node = parm.pkt!pkt.arg3
  104. 3100DC:         MOVE.L (A1),D4 
  105. 3100DE:         LSL.L #2,D4 
  106. 3100E0:         MOVE.L 1C(A0,D4.L),154(A1) 
  107. #
  108. # FOR i=0 to IO.blocksize DO IOB!i := 0
  109. 3100E6:         CLR.L   158(A1) 
  110. 3100EA:         MOVE.L  #1E,D5 
  111. 3100EC:         MOVE.L  D5,15C(A1) 
  112. 3100F0:         BRA     310106 
  113. 3100F4:         MOVE.L  3C(A1),D1 
  114. 3100F8:         ADD.L   158(A1),D1 
  115. 3100FC:         LSL.L   #2,D1 
  116. 3100FE:         CLR.L   0(A0,D1.L) 
  117. 310102:         ADD.L   #1,158(A1) 
  118. 310106:         MOVE.L  15C(A1),D1 
  119. 31010A:         CMP.L   158(A1),D1 
  120. 31010E:         BGE     3100F4 
  121.  
  122. # IF OpenDevice( IOB, devname, 0, 0) = 0
  123. 310110:         MOVE.L #0,D4 
  124. 310112:         MOVE.L D4,D3 
  125. 310114:         MOVE.L 140(A1),D2 
  126. 310118:         MOVE.L 3C(A1),D1 
  127. 31011C:         MOVE.L #164,D0 
  128. 310122:         MOVE.L 7C(A2),A4 
  129. 310126:         JSR (A5) 
  130. 310128:         TST.L D1 
  131. 31012A:         BNE 310134 
  132. #    error := TRUE
  133. 31012E:         MOVE.L #FFFFFFFF,D1 
  134. 310130:         MOVE.L D1,13C(A1) 
  135. #
  136. # IF error THEN
  137. 310134:         TST.L 13C(A1) 
  138. 310138:         BEQ 310154 
  139. #    $( returnpkt(parm.pkt, FALSE, error, objectinuse)
  140. 31013C:         MOVE.L #CA,D3 
  141. 310142:         MOVE.L #0,D2 
  142. 310144:         MOVE.L (A1),D1 
  143. 310146:         MOVE.L #164,D0 
  144. 31014C:         MOVE.L C4(A2),A4 
  145. 310150:         JSR (A5)
  146. #    return
  147. 310152:         JMP (A6) 
  148. #    $)
  149. #
  150. # // Copy all the necessary info to the Output buffer too.
  151. #
  152. # FOR i=0 TO IO.blocksize DO IOBO!i := IOB!
  153. 310154:         CLR.L 158(A1) 
  154. 310158:         MOVE.L #1E,D1 
  155. 31015A:         MOVE.L D1,15C(A1) 
  156. 31015E:         BRA 310180 
  157. 310162:         MOVE.L 3C(A1),D1 
  158. 310166:         ADD.L 158(A1),D1 
  159. 31016A:         LSL.L #2,D1 
  160. 31016C:         MOVE.L BC(A1),D2 
  161. 310170:         ADD.L 158(A1),D2 
  162. 310174:         LSL.L #2,D2 
  163. 310176:         MOVE.L 0(A0,D1.L),0(A0,D2.L) 
  164. 31017C:         ADD.L #1,158(A1) 
  165. 310180:         MOVE.L 15C(A1),D1 
  166. 310184:         CMP.L 158(A1),D1 
  167. 310188:         BGE 310162
  168. #
  169. # TEST extrainfo = 2 &&         // did they ask for the printer
  170. 31018A:         MOVE.L #2,D2 
  171. 31018C:         CMP.L 4(A1),D2 
  172. 310190:         BNE 3101F8 
  173. #      LEN(openstring < 4) THEN // with a name longer than PRT:?
  174. 310194:         MOVE.L 10(A1),D3 
  175. 310198:         LSL.L #2,D3 
  176. 31019A:         MOVE.L #0,D4 
  177. 31019C:         MOVE.B 0(A0,D3.L),D4 
  178. 3101A0:         MOVE.L #4,D5 
  179. 3101A2:         CMP.L D5,D4 
  180. 3101A4:         BLE 3101F8
  181. #    $(
  182. 3101A8:         MOVE.L 148(A1),D4 
  183. 3101AC:         LSL.L #2,D4 
  184. 3101AE:         MOVE.L #0,D6 
  185. 3101B0:         MOVE.B 0(A0,D4.L),D6 
  186. 3101B4:         MOVE.L D6,D4 
  187. 3101B6:         MOVE.L 16C(A1),D3 
  188. 3101BA:         MOVE.L #3,D2 
  189. 3101BC:         MOVE.L BC(A1),D1 
  190. 3101C0:         MOVE.L #164,D0 
  191. 3101C6:         MOVE.L 18(A2),A4 
  192. 3101CA:         JSR (A5) 
  193. 3101CC:         MOVE.L 148(A1),D1 
  194. 3101D0:         LSL.L #2,D1 
  195. 3101D2:         ADD.L #1,D1 
  196. 3101D4:         MOVE.L D1,D3 
  197. 3101D6:         MOVE.L #28,D2 
  198. 3101D8:         MOVE.L BC(A1),D1 
  199. 3101DC:         MOVE.L #164,D0 
  200. 3101E2:         MOVE.L 1BC(A2),A4 
  201. 3101E6:         JSR (A5) 
  202. 3101E8:         MOVE.L BC(A1),D1 
  203. 3101EC:         MOVE.L #164,D0 
  204. 3101F2:         MOVE.L 54(A2),A4 
  205. 3101F6:         JSR (A5)
  206. #    $) 
  207. #
  208. # outpkt!pkt.type := act.write
  209. 3101F8:         MOVE.L 28(A1),D1 
  210. 3101FC:         LSL.L #2,D1 
  211. 3101FE:         MOVE.L #3EA,8(A0,D1.L)
  212. # inpkt!pkt.type := act.read
  213. 310206:         MOVE.L 14(A1),D1 
  214. 31020A:         LSL.L #2,D1 
  215. 31020C:         MOVE.L #3E9,8(A0,D1.L) 
  216. # node!dev.task := taskid()
  217. 310214:         MOVE.L #164,D0 
  218. 31021A:         MOVE.L 38(A2),A4  ;tadkid()
  219. 31021E:         JSR (A5) 
  220. 310220:         MOVE.L 154(A1),D2 
  221. 310224:         LSL.L #2,D2 
  222. 310226:         MOVE.L D1,8(A0,D2.L) 
  223. #
  224. # // Finished with parameter packer...send back...
  225. #
  226. # returnpkt( park.pkt, TRUE )
  227. 31022A:         MOVE.L #FFFFFFFF,D2 
  228. 31022C:         MOVE.L (A1),D1 
  229. 31022E:         MOVE.L #164,D0 
  230. 310234:         MOVE.L C4(A2),A4 
  231. 310238:         JSR (A5)
  232. #
  233. # // This is the main repeat loop waiting for an event
  234. #
  235. # $( LET p = taskwait() 
  236. 31023A:         MOVE.L #164,D0 
  237. 310240:         MOVE.L A4(A2),A4 
  238. 310244:         JSR (A5)
  239. 310246:         MOVE.L D1,158(A1)
  240. #
  241. # SWITCHON p!pkt.type INTO 
  242. 31024A:         BRA 310426
  243. # CASE ????:
  244. 31024E:         MOVE.L 158(A1),D1 
  245. 310252:         LSL.L #2,D1 
  246. 310254:         MOVE.L 14(A0,D1.L),15C(A1) 
  247. 31025A:         TST.L 14C(A1) 
  248. 31025E:         BEQ 31027E 
  249. 310262:         MOVE.L #CA,D3 
  250. 310268:         MOVE.L #0,D2 
  251. 31026A:         MOVE.L 158(A1),D1 
  252. 31026E:         MOVE.L #16C,D0 
  253. 310274:         MOVE.L C4(A2),A4 
  254. 310278:         JSR (A5) 
  255. 31027A:         BRA 310474 
  256. #
  257. # CASE ????:
  258. 31027E:         MOVE.L #FFFFFFFF,D1 
  259. 310280:         MOVE.L D1,14C(A1) 
  260. 310284:         MOVE.L 15C(A1),D2 
  261. 310288:         LSL.L #2,D2 
  262. 31028A:         MOVE.L D1,4(A0,D2.L) 
  263. 31028E:         MOVE.L 15C(A1),D2 
  264. 310292:         LSL.L #2,D2 
  265. 310294:         MOVE.L #3ED,24(A0,D2.L) 
  266. 31029C:         MOVE.L D1,D2 
  267. 31029E:         MOVE.L 158(A1),D1 
  268. 3102A2:         MOVE.L #16C,D0 
  269. 3102A8:         MOVE.L C4(A2),A4 
  270. 3102AC:         JSR (A5) 
  271. 3102AE:         BRA 310474 
  272. #
  273. # CASE ????:               
  274. 3102B2:         MOVE.L 158(A1),D1 
  275. 3102B6:         LSL.L #2,D1 
  276. 3102B8:         MOVE.L 14(A0,D1.L),15C(A1) 
  277. 3102BE:         TST.L 150(A1) 
  278. 3102C2:         BEQ 3102E2 
  279. 3102C6:         MOVE.L #CA,D3 
  280. 3102CC:         MOVE.L #0,D2 
  281. 3102CE:         MOVE.L 158(A1),D1 
  282. 3102D2:         MOVE.L #16C,D0 
  283. 3102D8:         MOVE.L C4(A2),A4 
  284. 3102DC:         JSR (A5) 
  285. 3102DE:         BRA 310474 
  286. #
  287. # CASE ????:
  288. 3102E2:         MOVE.L #FFFFFFFF,D1 
  289. 3102E4:         MOVE.L D1,150(A1) 
  290. 3102E8:         MOVE.L 15C(A1),D2 
  291. 3102EC:         LSL.L #2,D2 
  292. 3102EE:         MOVE.L D1,4(A0,D2.L) 
  293. 3102F2:         MOVE.L 15C(A1),D2 
  294. 3102F6:         LSL.L #2,D2 
  295. 3102F8:         MOVE.L #3EE,24(A0,D2.L) 
  296. 310300:         MOVE.L D1,D2 
  297. 310302:         MOVE.L 158(A1),D1 
  298. 310306:         MOVE.L #16C,D0 
  299. 31030C:         MOVE.L C4(A2),A4 
  300. 310310:         JSR (A5) 
  301. 310312:         BRA 310474 
  302. #
  303. # CASE ????:
  304. 310316:         MOVE.L 158(A1),D1 
  305. 31031A:         LSL.L #2,D1 
  306. 31031C:         CMP.L #3ED,14(A0,D1.L) 
  307. 310324:         BNE 310330 
  308. 310328:         CLR.L 14C(A1) 
  309. 31032C:         BRA 310334 
  310. 310330:         CLR.L 150(A1) 
  311. 310334:         TST.L 14C(A1) 
  312. 310338:         BNE 31034E 
  313. 31033C:         TST.L 150(A1) 
  314. 310340:         BNE 31034E 
  315. 310344:         MOVE.L 154(A1),D1 
  316. 310348:         LSL.L #2,D1 
  317. 31034A:         CLR.L 8(A0,D1.L) 
  318. 31034E:         MOVE.L #FFFFFFFF,D2 
  319. 310350:         MOVE.L 158(A1),D1 
  320. 310354:         MOVE.L #168,D0 
  321. 31035A:         MOVE.L C4(A2),A4 
  322. 31035E:         JSR (A5) 
  323. 310360:         BRA 310474 
  324. #
  325. # CASE ????:
  326. 310364:         MOVE.L 158(A1),14(A1) 
  327. 31036A:         MOVE.L 8(A1),D2 
  328. 31036E:         MOVE.L 3C(A1),D1 
  329. 310372:         MOVE.L #168,D0 
  330. 310378:         LEA 4E4(A4),A4 
  331. 31037C:         JSR (A5) 
  332. 31037E:         BRA 310474 
  333. #
  334. # CASE ????:
  335. 310382:         MOVE.L 158(A1),28(A1) 
  336. 310388:         MOVE.L C(A1),D2 
  337. 31038C:         MOVE.L BC(A1),D1 
  338. 310390:         MOVE.L #168,D0 
  339. 310396:         LEA 4E4(A4),A4 
  340. 31039A:         JSR (A5) 
  341. 31039C:         BRA 310474 
  342. #
  343. # CASE ????:
  344. 3103A0:         MOVE.L 158(A1),8(A1) 
  345. 3103A6:         MOVE.L 14(A1),D4 
  346. 3103AA:         MOVE.L 158(A1),D3 
  347. 3103AE:         MOVE.L #2,D2 
  348. 3103B0:         MOVE.L 3C(A1),D1 
  349. 3103B4:         MOVE.L #168,D0 
  350. 3103BA:         LEA 4A0(A4),A4 
  351. 3103BE:         JSR (A5) 
  352. 3103C0:         CLR.L 14(A1) 
  353. 3103C4:         BRA 310474 
  354. #
  355. # CASE ????:
  356. 3103C8:         MOVE.L 158(A1),C(A1) 
  357. 3103CE:         MOVE.L 28(A1),D4 
  358. 3103D2:         MOVE.L 158(A1),D3 
  359. 3103D6:         MOVE.L #3,D2 
  360. 3103D8:         MOVE.L BC(A1),D1 
  361. 3103DC:         MOVE.L #168,D0 
  362. 3103E2:         LEA 4A0(A4),A4 
  363. 3103E6:         JSR (A5) 
  364. 3103E8:         CLR.L 28(A1) 
  365. 3103EC:         BRA 310474 
  366. #
  367. # DEFAULT:
  368. 3103F0:         TST.L 14C(A1) 
  369. 3103F4:         BNE 31040A 
  370. 3103F8:         TST.L 150(A1) 
  371. 3103FC:         BNE 31040A 
  372. 310400:         MOVE.L 154(A1),D1 
  373. 310404:         LSL.L #2,D1 
  374. 310406:         CLR.L 8(A0,D1.L) 
  375. 31040A:         MOVE.L #D1,D3 
  376. 310410:         MOVE.L #0,D2 
  377. 310412:         MOVE.L 158(A1),D1 
  378. 310416:         MOVE.L #168,D0 
  379. 31041C:         MOVE.L C4(A2),A4 
  380. 310420:         JSR (A5) 
  381. 310422:         BRA 310474 
  382. #
  383. # // SWITCHON p!pkt.type INTO 
  384. 310426:         MOVE.L 158(A1),D1 
  385. 31042A:         LSL.L #2,D1 
  386. 31042C:         MOVE.L 8(A0,D1.L),D1 
  387.  
  388. 310430:         MOVE.L #52,D2 
  389. 310432:         CMP.L D2,D1 
  390. 310434:         BEQ 3103A0 
  391.  
  392. 310438:         MOVE.L #57,D3 
  393. 31043A:         CMP.L D3,D1 
  394. 31043C:         BEQ 3103C8 
  395.  
  396. 31043E:         CMP.L #3E9,D1 
  397. 310444:         BEQ 310364 
  398.  
  399. 310448:         CMP.L #3EA,D1 
  400. 31044E:         BEQ 310382 
  401.  
  402. 310452:         CMP.L #3ED,D1 
  403. 310458:         BEQ 31024E 
  404.  
  405. 31045C:         CMP.L #3EE,D1 
  406. 310462:         BEQ 3102B2 
  407.  
  408. 310466:         CMP.L #3EF,D1 
  409. 31046C:         BEQ 310316 
  410. 310470:         BRA 3103F0 
  411.  
  412. # $) REPEATWHILE open |
  413. 310474:         TST.L 14C(A1) 
  414. 310478:         BNE 31023A 
  415. #    ??? = 0
  416. 31047C:         TST.L 150(A1) 
  417. 310480:         BNE 31023A
  418. #    outpkt = 0 |
  419. 310484:         TST.L 28(A1) 
  420. 310488:         BEQ 31023A 
  421. #    inpkt = 0
  422. 31048C:         TST.L 14(A1) 
  423. 310490:         BEQ 31023A 
  424. #
  425. # // Termination
  426. #
  427. # CloseDevice( IOB )
  428. 310494:         MOVE.L 3C(A1),D1 
  429. 310498:         MOVE.L #164,D0 
  430. 31049E:         MOVE.L 80(A2),A4 
  431. 3104A2:         JSR (A5) 
  432. 3104A4:         JMP (A6) 
  433. #
  434. # $)               
  435. 3104A6:         NOP
  436.                 CNOP    0,4
  437. 3104A8:         DC.B    14, 'serial.device',0
  438.                 CNOP    0,4
  439. 3104B8:         DC.B    16, 'parallel.device',0
  440.                 CNOP    0,4
  441. 3104C8:         DC.B    15, 'printer.device',0
  442.                
  443. 3104DC:         ADD.B #[2,(A3)+ 
  444. #
  445. # // Handle an IO request.  Passed command, transmission packet (tp)
  446. # // and request packet (rp). rp contains buffer and length in arg2/3
  447. # AND handle.request(IOB, command, rp, tp ) BE
  448. # $(
  449. #    LET buff  = rp!pkt.arg2 
  450. 3104E0:         MOVE.W 0(A4),A0 
  451. 3104E4:         MOVE.L D3,D5 
  452. 3104E6:         LSL.L #2,D5
  453. 3104E8:         MOVE.L 18(A0,D5.L),10(A1) 
  454. #    LET len   = rp!pkt.arg3
  455. 3104EE:         MOVE.L 1C(A0,D5.L),14(A1) 
  456. 3104F4:         CLR.L 34(A1)
  457. #    SetIO( IOB, IO.data, buff )
  458. 3104F8:         MOVE.L 1C(A0,D5.L),D4 
  459. 3104FC:         MOVE.L 2C(A1),D3 
  460. 310500:         MOVE.L #$,D0 
  461. 310502:         MOVE.L 18(A2),A4 
  462. 310506:         JSR (A5)
  463. #    putlong( IOB, IO.data, buff )
  464. 310508:         MOVE.L 10(A1),D3 
  465. 31050C:         MOVE.L #(,D2 
  466. 31050E:         MOVE.L (A1),D1 
  467. 310510:         MOVE.L #$,D0 
  468. 310512:         MOVE.L 1BC(A2),A4 
  469. 310516:         JSR (A5) 
  470. #    SendIO(IOB, tp)               
  471. 310518:         MOVE.L C(A1),D2 
  472. 31051C:         MOVE.L (A1),D1 
  473. 31051E:         MOVE.L #$,D0 
  474. 310520:         MOVE.L 58(A2),A4 
  475. 310524:         JSR (A5) 
  476. # $)
  477. 310526:         JMP (A6) 
  478. #
  479. # // Handle a returning IO request.  The user request packet is
  480. # // passed as p, and must be returned with success/failure message.
  481. # AND handle.return(IOB, p ) BE
  482. # $(
  483. #    LET errcode = IOB O.error
  484. 310528:         MOVE.L D1,D3 
  485. 31052A:         LSL.L #@,D3 
  486. 31052C:         MOVE.L #@,D4 
  487. 31052E:         MOVE.B 1F(A0,D3.L),D4 
  488. 310532:         MOVE.L D4,8(A1) 
  489. #    LET len = getlong( IOB, IO.actual )
  490. 310536:         MOVE.L # ,D2 
  491. 310538:         MOVE.L #@,D0 
  492. 31053A:         MOVE.L 1B8(A2),A4 
  493. 31053E:         JSR (A5) 
  494. #
  495. #    TEST errcode = 0 THEN     // no error
  496. 310540:         MOVE.L D1,C(A1) 
  497. 310544:         TST.L 8(A1) 
  498. 310548:         BNE 31055E 
  499. #       returnpkt(p, len )
  500. 31054C:         MOVE.L D1,D2 
  501. 31054E:         MOVE.L 4(A1),D1 
  502. 310552:         MOVE.L #@,D0 
  503. 310554:         MOVE.L C4(A2),A4 
  504. 310558:         JSR (A5) 
  505. #    ELSE
  506. 31055A:         BRA 310570 
  507. #       returnpkt(p, -1, errcode )
  508. 31055E:         MOVE.L 8(A1),D3 
  509. 310562:         MOVE.L #@@@@,D2 
  510. 310564:         MOVE.L 4(A1),D1 
  511. 310568:         MOVE.L #@,D0 
  512. 31056A:         MOVE.L C4(A2),A4 
  513. 31056E:         JSR (A5) 
  514. 310570:         JMP (A6) 
  515. # $)
  516. #
  517. 310572:         NOP  
  518. 310574:         CNOP 0,4
  519.                 DC.L    0
  520.                 DC.L    1
  521.                 DC.L    Entry-Module
  522.                 DC.L    $6f                     111
  523. ModEnd          EQU     *
  524.                                                                                 
  525.                                                                                 
  526.                                                                                 
  527.                                                                                 
  528.                                                                                 
  529.                                                                                 
  530.                                                                                 
  531.                                                                                 
  532.